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SEU MICRO 


Bach ou Beethoven? Pink Floyd ou The 
Cure? Seja qual for a sua escolha 
musical, você pode tornar-se um ótimo 
instrumentista, dedilhando 

o teclado de um microcomputador. 





Com exceção do Apple, todos os mi- 
crocomputadores mencionados neste ar- 
tigo contam com algum tipo de coman- 
do capaz de produzir sons. O funciona- 
mento de comandos sonoros, aliás, já 
foi explicado anteriormente em Quebre 
a Barreira do Som (página 168). Um ar- 
tigo posterior — Apple e TK-2000: Efei- 
tos Sonoros — abordou o funcionamen- 
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to de uma rotina em código de máqui- 
na, que será utilizada no programa des- 
te artigo; ela permite que os micros des- 
sas linhas produzam sons, 

De um modo geral, é possivel selecio- 
nar tanto a tonalidade como a duração 
da nota emitida. No MSX e no TRS- 
Color, outros parâmetros também po- 
dem ser modificados. 










Eu NOTAS E ESCALAS 
mi TONS E SEMITONS 
Ei PEQUENAS MELODIAS 
E TRANSFORME O COMPUTADOR 

NUM ÓRGÃO MUSICAL 


A forma de produzir sons por meio 
de um programa em BASIC varia de 


computador para computador. No 
MSX., podemos tocar até três notas ao 
mesmo tempo, o que possibilita a exe- 
cução de acordes musicais. Os demais 
produzem só uma nota por vez. O MSX 
permite que controlemos outros pará- 
metros essenciais para certas aplicações. 
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Nenhuma dessas diferenças é relevan- 
te no momento. De fato, melodias sim- 
ples podem ser executadas em qualquer 
um dos cinco computadores abordados 
neste artigo, que pretende ser apenas um 
guia para principiantes. Começaremos 
com algumas noções de teoria musical, 
necessárias à compreensão do progra- 
ma, que transforma parte do teclado de 
seu micro em um instrumento simples. 
Em artigo posterior, veremos de que 
maneira tirar maior proveito dos recur- 
sos musicais do computador. 

Antes de iniciar, devemos explicar o 
significado de dois termos fundamen- 
tais. O primeiro deles é a expressão “al- 
tura”, que aqui quer dizer o mesmo que 
tom ou tonalidade. Ele permite classifi- 
car as notas musicais em graves e agu- 
das. Assim, uma nota mais alta que ou- 
tra será mais aguda que ela; uma nota 
mais baixa será mais grave. O segundo 
termo, “intervalo”, indica a distância 
musical entre duas notas de tonalidade 
diferente. 
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“UMA ESCALA SIMPLES 





Uma escala é uma série ascendente de 
notas musicais, cada uma mais alta que 
a anterior. Embora em computação se- 
ja tecnicamente melhor recorrer a letras 
do alfabeto — de A a G — para desig- 
nar as notas (como acontece na Europa 
e nos Estados Unidos), o sistema ado- 
tado no Brasil emprega os nomes tradi- 
cionais — dó, ré, mi, fá, sol, lá, si. As- 
sim, uma escala começa com dó e vai 
“subindo” até o próximo dó, num to- 
tal de oito notas. 

Essa escala ''dó-ré-mi"' é chamada de 
“escala maior”, Ela é definida por uma 
relação musical entre as notas, Assim, 
qualquer sequência de notas com o mes- 
mo padrão de intervalos musicais entre 
si é uma “escala maior”. 











E AS TECLAS PRETAS? 


As teclas brancas de um piano cor- 
respondem às notas (letras) A, B,C,D, 
E, Fe G, num ciclo que se repete pelo 
teclado afora — Cé dó, Déré, Fémi 
etc. A “escala maior" corresponde a oi- 

y O p | toteclas, começando num C e terminan- 
ns ER BR E dono próximo C. Essa escala é deno- 
minada escala de 'C maior", por mo- 
tivos óbvios. Como dissemos antes, uma 
“escala maior" pode iniciar-se em qual- 
quer tonalidade, mas a escala de “C 
maior'' deve começar necessariamente 
num C, que tem uma altura específica, 
A escolha dessa letra como primeira no- 
ta fixa e tonalidade da escala. 











| | 
| É 
a - F 


Para que servem então as teclas pre- 
tas do teclado? Acontece que a “escala 
maior” não contém todas as notas pos- 
síveis entre a primeira e a última letras. 
Entre dó e ré, por exemplo, existe uma 
nota que não pertence à “escala maior”; 
o mesmo ocorre com outros pares de no- 
tas. As teclas pretas correspondem a esse 
tipo de som intermediário. Assim, a te- 
cla preta entre Ce D (dó e ré em “C 
maior'') é chamada de € sustenido ou 
D bemol (“'sustenido”' significa mais al- 
to e “bemol”, mais baixo), conforme 
usemos a nota acima ou abaixo dela co- 
mo referência. 

A nota entre D e E é D sustenido ou 
E bemol, e assim por diante. Note que 
não há tecla preta entre E e F (mi e fá 
em “C maior'') nem entre Be € (sie 
dó em “C maior”). 

O intervalo existente entre duas teclas 
vizinhas (mesmo que elas tenham cores 
diferentes) é chamado de semitom, de 
maneira que os intervalos entre C e € 
sustenido, € sustenido e D e entre E e 
F são todos semitons. Um intervalo que 
contenha dois semitons é denominado 
tom “inteiro”. 

O arranjo de tons e semitons que de- 
finem uma escala maior é: 


dois semitons = um tom entre dó e ré 
(Ce D em “C maior”). 


dois semitons = um tom entre ré e mi 
(De E em “C maior”) 

um semitom entre mie fá (E e F em “C 
maior”). 


dois semitons = um tom entre fá e sol 
(Fe G em “C maior”). 


dois semitons = um tom entre sol e lá 
(Ge A em “C maior”). 


dois semitons = um tom entre lá e si(A 
e B em “C maior”). 


um semitom entre sie dó (Be C em “C 
maior”). 





OUTRAS ESCALAS MAIORES 


Segundo o que foi exposto, existem 
doze semitons entre O primeiro e o se- 
gundo dó de uma ''escala maior” (to- 
tal de oito notas). 

Suponhamos agora que precisamos 
de uma “escala maior” em outra tona- 
lidade — começando em 6, por exem- 
plo. Nela, G seria dó e A seria ré; mas, 
se tocássemos as seis teclas seguintes, O 
arranjo de intervalos não seria o de uma 
“escala maior": os intervalos entre lá e 


si, € si e dó não estariam corretos, Para 
obtermos uma ''escala maior"” verdadei- 
ra, F deve ser substituído por F susteni- 
do (ou si, em nossa nova escala), resta- 
belecendo o padrão correto de interva- 
los. Para entender melhor, estude o dia- 
grama da página anterior ou use um te- 
clado de verdade. 

Uma “escala maior” começando em 
F seria então: F, G, A, B bemol, €, D, 
E e F. (B deve ser bemol, caso contrá- 
rio a nota fá e os intervalos mi-fá e fá- 
sol estarão errados). 

Podemos obter uma “'escala maior” 
começando em qualquer nota, desde que 
respeitemos o arranjo de intervalos. Mas 
qualquer escala não iniciada em €C de- 
verá usar uma ou mais teclas pretas: 
apenas a escala “C maior” usa só teclas 
brancas. Fica explicado porque ela é tão 
popular: é mais fácil tocar usando só as 
teclas brancas, 

Muitas músicas simples — como can- 
tigas de ninar, músicas folclóricas e al- 
guns hinos — podem ser tocadas na es- 
cala maior. À canção Três Ratinhos Ce- 
gos, por exemplo, começa assim: 





mi, ré, dó 

mi, ré, dó 

sol, fá, fá, mi 
sol, fá, fá, mi... 


e as primeiras notas de Atirei o Pau no 
Gato são: 


sol, lá, mi, ré, mi, fá, sol, sol, 
sol, fá, sol, lá, lá, lá, 
sol, lá, mi, mi, mi... 


Escrevemos aqui apenas as tonalida- 
des; o ritmo fica por conta do leitor. Só 
com notação musical — um tema que 
não abordaremos agora — poderiamos 
transmitir a informação completa a res- 
peito da melodia — altura, ritmo, inten- 
sidade, entre outras coisas. 

Músicas mais complexas não poderão 
ser executadas somente com as teclas 
brancas. Geralmente, começamos em 
uma escala e, com o desenvolvimento da 
música, passamos temporariamente pa- 
ra outras escalas, usando notas que não 
aparecem na primeira. 

Veja, por exemplo, o caso de Yester- 
day, música composta por John Lennon 
e Paul McCartney que se tornou um dos 
grandes sucessos dos Beatles: 


ré, dó, dó, mi, fá, fá sustenido, sol sus- 
tenido, lá, si, dó, si, lá, lá... 


Essas notas, estranhas à escala origi- 
nal, são um requinte; elas dão um to- 
que especial a muitas melodias. 





BEMÓIS OU SUSTENIDOS? 


Por que se usa o termo “'sustenido” 
(em F sustenido) na escala ''G maior”, 
e “bemol” (em B bemol) na escala 'F 
maior"? Afinal, F sustenido e G bemol 
correspondem à mesma tecla preta. Por 
que não usar só um dos termos, deixan- 
do o outro de lado? Quem tentar criar 
novas “escalas maiores” — começando 
em notas diferentes de C — terá a res- 
posta. Na verdade, os dois termos são 
necessários para garantir que, em qual- 
quer escala, cada nota seja representa- 
da por uma letra diferente. Assim, a 
substituição do B bemol da escala “F 
maior” por A sustenido, resultaria em: 
F, G, A, A sustenido, C, D, E e F. Em 
tal sequência de notas aparecem dois A 
e nenhum B, o que pode gerar confusão. 

Da mesma maneira, a substituição de 
F sustenido por G bemol em “G 
maior”, resultaria em uma escala com 
dois G e nenhum F. Já o emprego de be- 
móis no lugar de sustenidos, ou vice- 
versa, é tão deselegante como erros de 
ortografia em um texto. Programas pa- 
ra compor música que usem só bemóis 
— ou sustenidos —, com a justificativa 
de que C sustenido é igual a D bemol, 
deixanr muito a desejar. 


FREQUÊNCIA E INTERVALOS 





Som é o efeito produzido pelas vibra- 
ções no ar. Quanto mais rapidamente es- 
tas se repetirem, ou quanto maior for 
sua frequência, mais aguda será a nota 
correspondente. A unidade usada para 
exprimir frequência é cps (ciclos por se- 
gundo) ou Hz (hertz, que significa a 
mesma coisa). 

Se tomarmos a nota €, cuja frequên- 
cia é igual a 256 Hz, e dobrarmos esse 
valor, obteremos outra nota C uma oi- 
tava acima da primeira — mais aguda, 
portanto (uma oitava é o intervalo entre 
o dó mais baixo e o dó mais alto). Do- 
brando novamente o valor da frequên- 
cia, ele passará de 512 para 1024 Hz, que 
corresponde à próxima nota € — uma 
oitava acima da anterior. Desse modo, 
quando multiplicamos a frequência de 
uma nota, adicionamos a ela um inter- 
valo musical. 

Já vimos que há doze semitons em 
uma oitava (treze teclas, oito brancas e 
cinco pretas, com doze semitons entre 
si). Se, dobrando a frequência, subimos 
uma oitava, por que fator devemos mul- 
tiplicar a frequência de uma nota para 
subir um semitom? No caso de uma oi- 
tava acima, temos a equação: 








| | 
| |, 
II | 
| = E ; 


frequência da nota x 2 = frequência da 
nota uma oitava mais alta. 


Chamamos de X o fator necessário 
para subir um semitom. Teremos então: 


frequência da nota 

XXxXxXxXxXxXxXxXxXxXxXxX = 
frequência da nota uma oitava mais alta. 
EMEMEXO RX MEM MEXPNPMEX = 


O número que divide a razão 2:1 em 
doze partes iguais é a décima segunda 
raiz de 2 (para calcular esse valor em 
BASIC, use a expressão 21(1/12)). Se 
multiplicarmos 256 por esse valor, ob- 
teremos a nota um semitom mais alta. 
Uma nóva multiplicação adiciona mais 
um semitom. Se repetirmos o processo, 
após doze multiplicações consecutivas, 
chegaremos à freqiiência da oitava se- 
guinte. Por tudo isso, a décima segun- 
da raiz de dois é uma constante funda- 
mental da música. 





MELODIAS NA “ESCALA MAIOR” | 


Se quisermos tocar uma música usan- 
do o programa do final deste artigo, te- 
remos que adivinhar qual nota é dó, 
qual é ré, e assim por diante. A questão 
é: como tocar “de ouvido"? 

Existirá algum método para fazer 
com que a música possa ser tocada so- 
mente nas teclas brancas, facilitando sua 
execução? Neste caso também, um ca- 
minho possível é descobrir qual nota da 
música é um dó, deduzindo, a partir daí, 
as posições das demais notas. Muitas 
melodias começam ou terminam com es- 
sa nota; além disso, o dó acaba funcio- 
nando como o “centro de gravidade” 
de certas músicas simples. Uma vez en- 
contrada, essa nota nos servirá de guia, 
e, com um pouco de sorte, descobrire- 
mos as outras. Tente tocar a música des- 
de o início, nota por nota; preste muita 
atenção no que estiver ouvindo, procu- 
rando perceber se a tonalidade está su- 
bindo ou descendo naquele ponto e se 
a nota seguinte se encontra na tecla vi- 
zinha, ou mais além. 

Se nos enganarmos sobre qual é a no- 
ta dó, algumas notas parecerão muito 
graves ou muito agudas e teremos de 
procurar o dó “certo”. Com paciência 
e perseverança, porém, qualquer um po- 
de desenvolver uma espécie de “intui- 
ção musical'" e alguns serão capazes de 
tocar músicas inteiras no teclado de um 
microcomputador. 

Para facilitar o trabalho dos princi- 
piantes, contudo, este artigo menciona 
as notas de algumas melodias mais ou 
menos conhecidas. 





É assim que o diagrama do teclado aparece 
na tela dos micros da linha TRS-Color. 


UM TECLADO MUSICAL 





Os programas a seguir transformam 
a parte superior do teclado do seu com- 
putador em um pequeno órgão. As le- 
trasQ, W, E, R,T, Y,U, I serão as no- 
tas dó, ré, mi etc. As teclas da direita 
avançam na oitava seguinte. As teclas 
2,3,5,6, 7 funcionam como as teclas 
pretas do piano. Um diagrama de seu te- 
clado fica mais ou menos assim: 


23 56 Tete. 
OWERTYULete. 


rmfsi 
éiáodá 


=: 


O E 
> E. 


O programa coloca na tela um dia- 
grama semelhante para orientar o tecla- 
dista. Além disso, quando forem toca- 
das as notas da primeira oitava da ''es- 
cala maior", seus nomes aparecerão 
num canto do vídeo. 

Digite a seguir o programa especifi- 
co para o seu micro e siga as instruções 
que o acompanham para se tornar um 
“virtuose””. 

O programa do Spectrum transforma 
as duas linhas superiores do teclado em 
um órgão. Para ouvir uma nota, basta 
pressionar a tecla correspondente, 

A listagem começa estabelecendo os 
valores das variáveis que correspondem 
à duração das notas, ao endereço do la- 
ço principal (guardado na variável loop, 
para economizar memória), e à coorde- 
nada x do comando PRINT AT, usado 
para impressão das notas na tela. Ela 
continua selecionando as cores da tela, 
e entra a seguir na porção responsável 
pela produção de sons. 

A variável loop contém o número da 
linha para o qual o programa retornará 


após executar uma nota; ele aguardará 
então que você pressione a tecla seguin- 
te. Quando isso acontecer, o código do 
caractere correspondente será colocado 
na variável nota, com o auxílio do co- 
mando CODE. 

O computador irá então para a linha 
cujo número está em nota. Os números 
de linha correspondem aos códigos das 
teclas usadas (de 48 a 121). O comando 
SOUND em cada uma dessas linhas é 
ajustado para tocar a nota correspon- 
dente à tecla (Q, por exemplo, corres- 
ponde a dó). Se consultarmos o manual 
— ou o artigo Quebre a Barreira do Som 
—, veremos que o primeiro número 
após SOUND corresponde à duração da 
nota (aqui representada pela variável d) 
e o segundo, à tonalidade. 

Quando a tecla apertada for de uma 
nota da “escala maior”, o nome desta 
também será impresso na tela, pela mes- 
ma linha que a executa. 

Depois de emitir o som, o computa- 
dor retorna à linha 1000, onde espera 
uma nova tecla ser pressionada. 


1 GOTO 900 
47 GOTO loop 
48 SOUND d,15: GOTO loop 
50 SOUND d,1l: GOTO loop 
51 SOUND d,3: GOTO loop 
53 SOUND d,6: GOTO loop 
54 SOUND d,8B: GOTO loop 
55 SOUND d,10: GOTO loop 
57 SOUND d,13: GOTO loop 
101 PRINT AT y,x;"MI”: SOUND d 
«4: GOTO loop 
105 PRINT AT y,x;"DO": SOUND d 
+12: GOTO loop 
111 SOUND d,l4: GOTO loop 


112 SOUND d, 16: GOTO loop 


113 PRINT AT y,x;"DO": SOUND d 
+10: GOTO loop 
114 PRINT AT y,x;"FA”: SOUND à 
15: GOTO loop 
116 PRINT AT v,x;"SO”: SOUND d 
17: GOTO loop 
117 PRINT AT wy,x;"SI": SOUND d 
111: GOTO loop 
119 PRINT AT y,x;"RE": SOUND d 
,2*: GOTO loop 
121 PRINT AT y,x;"LA”: SOUND d 
19: GOTO loop 
B00 GOTO loop 
900 LET D=.03: LET X=5: LET lo 


0p=1000 

901 BORDER 4: PAPER 4: CLS 
902 PRINT AT 8,6:"d rm £f 81 
Bs d” 

903 PRINT AT 9,6;"o ei aoa 
6” 


910 LET a$=" 23 5 67 90 
920 FOR y=3 TO 4: GOSUB 990 
930 NEXT y 

940 LET as="Q WERTTUIO 
p” 

941 PAPER 7: INK O 

950 FOR y=4 TO 6: GOSUB 990 








RR E 


960 NEXT y 
980 LET x=15: LET v=15: GOTO 1 
oop 


090 FOR i=l TO LEN ag 
991 IF aS(1)<>CHARS 32 
PRINT AT y,x+tijaS(i); 
992 NEXT i: RETURN 
1000 PRINT AT wy,x;CHAS 
32 

1005 LET aS=INKEYS: IF 
EN GOTO 1000 

1100 LET nota=CODE aS: GOTO not 
a 


THEN 


32; CHRS 


ag="" TH 


Aqueles que possuem micros da li- 
nha Spectrum importados devem subs- 
tituir o comando SOUND pelo coman- 
do BEEP, que tem a mesma sintaxe. 

Após iniciar a execução do programa, 
mantenha uma das teclas pressionadas 
para ouvir um som pulsante correspon- 
dente à auto-repetição da tecla. O som 
não é emitido continuamente, como 
num órgão, pois o comando SOUND 
produz sons com duração limitada. As- 
sim, O que o programa realmente faz é 
tocar a mesma nota repetidas vezes. 


“A EDS 


Vejamos agora o que acontece com 
os modelos da linha MSX. 

Os microcomputadores dessa linha 
contam com poderosos comandos sono- 
ros graças a um microprocessador inter- 
no dedicado inteiramente à produção de 
sons, e capaz de funcionar simultanea- 
mente com a unidade central. Para pro- 
gramá-lo em BASIC, precisamos recor- 
rer a vários comandos SOUND, com o 
propósito de definir diversos parâmetros 
do som — ou ruído — que estamos que- 
rendo emitir. Uma introdução a esse as- 
sunto foi apresentada no artigo Quebre 
a Barreira do Som, onde abordamos vá- 
rios sons não-musicais. 

Contudo, para transformar a parte 
superior do teclado num programa se- 
melhante ao dos outros micros, pode- 
mos usar o comando PLAY, que torna 
o programa mais simples e curto. 

A primeira linha do programa esta- 
belece os parâmetros iniciais das notas: 
volume, duração, velocidade de execu- 
ção. As linhas 20 e 30 colocam todas as 
notas usadas pelo programa dentro da 
variável indexada N$, recorrendo ao co- 
mando READ e aos dados da linha DA- 
TA. A linha 40 cria um cordão conten- 
do todas as teclas usadas e um outro que 
permite dar nome a algumas das notas 
(dó, ré, mi etc). As linhas que vão de 50 
a 100 cuidam da organização do video. 
A primeira delas seleciona a tela de tex- 
to com 32 colunas, escolhe as cores e 
desliga as teclas de função. 

Nas três linhas seguintes — ou seja, 


55, 60 e 65 —, o comando VPOKE é uti- 
lizado para modificar a tabela de cores 
— BASE (6) —, permitindo, assim, a 
impressão de letras coloridas. Se você 
não gostar das cores, pode mudar os có- 
digos nos locais onde eles aparecem — 
para maiores informações, veja o arti- 
go Os Comandos PEEK e POKE (pági- 
na 261). 

Na linha 70 , o comando VPOKE é 
novamente utilizado, desta vez para es- 
crever na tela. O FOR...NEXT contido 
nessa linha imprime parte do diagrama 
do teclado na tela, obtendo com READ 
os códigos dos caracteres de cada uma 
delas na linha 75 e modificando a tabe- 
la de nomes — BASE(5). O restante do 
diagrama é feito do mesmo modo pelas 
linhas 80 e 85. 

As linhas 90 e 100 completam o qua- 
dro, imprimindo o nome das notas sob 
as teclas correspondentes. 

A linha 120 espera que acionemos 
uma tecla. A 130 descobre qual das no- 
tas do cordão M$ corresponde à tecla 
pressionada; se a tecla não pertencer ao 
conjunto predefinido, a linha 120 será 
repetida. 

A linha 140 é a que realmente execu- 
ta a nota, usando o PLAY. A altura da 
nota é selecionada pela variável NT, que 
é usada para escolher o elemento de N$ 
que contém os operandos adequados do 
PLAY, 

A seguir, um comando ON GOTO na 
linha 150 imprimirá o nome da nota no 
canto superior esquerdo da tela, se ela 
pertencer à primeira oitava de “C 
maior”. O programa retorna então pa- 
ra verificar uma nova tecla. 


10 PLAY "VISL64T255" 

20 DIM NS(21):FOR K=0 TO 16:REA 
D NS(K) :NEXT 

30 DATA €C,C4,D,D4,E.F,F&,G,GÃI,A 
,44,B,04C,04Ct,04D,04D+,04E 

40 M$="Q2WIERST6Y7ZUI900P":DS="Q 
WERTYUIO” 

50 SCREEN 1:COLOR 1,6,6:KEY OFF 
55 FOR I=6 TO 7:VPOKE BASE (6)+I 
,15*16+1: NEXT 

60 FOR I=B TO 11:VPOKE BASE(6)+ 
1,16+15:NEXT 

65 FOR I=12 TO 15:VPOKE BASE(6) 
+1,16+10:NEXKT 

70 FOR K=0 TO 6:READ A:N=2*A-20 
*INT(A/10) :VPOKE BASE (5) +71+N,A 
:VPOKE BASE (5) +103+N,A:NEXT 

75 DATA 50,51,53,54,55,57,48 

BO FOR K=0 TO 9:READ A:VPOKE BA 
SE (5)+102+K*2,A:VPOKE BASE(5)+1 
34+K*2,A:VPOKE BASE (5) +I6G6+K*2, 
A:NEXT 

B5 DATA 81,87,69,82,84,89,85,73 


79,80 
90 LOCATE 4,9:PRINT "d rm fg 
l md” 
100 LOCATE 4,10:PRINT "o e à a 


o aio* 
120 AS=INKEYS:IF AS="" THEN 120 
130 NT=INSTR(M5,AS):IF NT=0 THE 
N 120 

140 PLAY "03" +NS (NT-1) 

150 LOCATE 0,0:D=INSTR(D5S,AS):0 
N D GOTO 170,180,190,200,210,22 
0,230,170 

160 PRINT ”" ":GOTO 
170 PRINT “DO” :GOTO 
180 PRINT “RE”:GOTO 
190 PRINT “MI":GOTO 
200 PRINT "FA”:GOTO 
210 PRINT "S0":GOTO 
220 PRINT "LA”":GOTO 
230 PRINT "SI”:GOTO 


TESES 


120 
120 
120 
120 
120 
120 
120 
120 








UM NOVO TECLADO 


O programa do Apple utiliza a roti- 
na de produção de sons do artigo Ap- 
ple e TK-2000: Efeitos Sonoros. O 
TK-2000 não precisa dela, já que dispõe 
do comando SOUND. 

A linha 10 limpa o vídeo e ativa a te- 
la gráfica de baixa resolução. A linha 20 
transfere para a memória os códigos da 
rotina de geração de som, contida na li- 
nha 30, 

A linha 35 cuida de colorir a tela, 
usando uma série de traços horizontais 
— verdes, no Apple — desenhados por 
comandos HLIN. As linhas 40 a 70 de- 
senham um teclado de piano. As teclas 
brancas e pretas são feitas por coman- 
dos VLIN. As coordenadas para uso 
desses comandos ficam nas linhas DA- 
TA 50 e 70. 

As linhas 80 e 90 imprimem as letras 
das teclas correspondentes ao desenho 
do piano, para orientar o usuário. Ob- 
serve que há dois espaços entre cada par 
de letras. A linha 100, por sua vez, im- 
prime o nome das notas (os tradicionais 
dó, ré, mi...). 

A seguir, O programa espera que se- 
ja pressionada uma tecla, colocando seu 
caractere em KS. 

Na linha 110, o comando POKE 
900,60 define a duração das notas —o 
endereço 900 é usado justamente para 
conter essa duração. 

Depois disso, uma grande quantida- 
de de linhas IF... THEN testa o conteú- 
do de K$ para descobrir qual tecla foi 
pressionada, emitindo a nota correspon- 
dente em cada caso. O endereço 901 é 
usado para determinar a tonalidade. A 
rotina de produção de som é executada 
pelo comando CALL 800. 

Detectada a tecla pressionada, o pro- 
grama retorna à linha 110 para aguar- 
dar uma nova nota. 








Por que as teclas musicais criadas | 


programa nos microcomputadores 
da linha TRS-Color não têm auto-repe- 
tição? 

O programa do TRS-Color usa habi- 
tualmente o comando INKEY'S$ para ve- 
rificar o teclado. 

É possível obtermos a auto-repeti- 
ção das teclas por intermédio do co- 
mando PEEK (essa forma tem sido mui- 

| to utilizada por nós em rotinas de mo- 
vimentação do cursor). No entanto, o 
programa teria que acionar, neste ca- 


| So, mais de vinte PEEK com diferentes | 


números, um para cada tecla musical. 

Como tais números não teriam ne- 
nhuma relação entre si (as teclas, nes- 
te caso, são QWE... enão ABC...), se- 
ria preciso colocá-los em linhas sepa- 
radas ou armazená-los em uma linha 
DATA, tornando a execução do progra- 


ma muito demorada e complicada. E 
mais rápido, cômodo e simples pressio- | 


nar uma tecla de cada vez. 


A duração de uma nota pode ser 
controlada pelo tempo em que a tecla 
se mantém sob pressão? 

De um modo geral, a resposta é não. 
Na maioria dos computadores isso só 
seria possível com linguagem de má- 
quina, já que o programa teria que fa- 
zer duas coisas ao mesmo tempo: to- 
car a nota e verificar se a tecla conti- 
nua sendo pressionada. 

Contudo, no micro MSX esse con- 
trole é possível; é que, nesse compu- 


| tador, o dispositivo de som funciona in- | 
' dependentemente da unidade de pro- | 


| cessamento central. 


A produção de acordes — emissão | 


de mais de uma nota simultaneamen- 
te — para enriquecer uma molodia tam- 
bém é possível no MSX, que conta com 
três canais de som. 


10 HOME : GR 

20 FOR I = O TO 22: READ A: PO 
KE BOO + I,A: NEXT 

30 DATA 160,0,174,133,3,238,4 
8,192,136,208,5,206,132,3,240,6 
,202,208,245,76,34,3,96 

35 COLOR= 12: FOR I = O TO 39: 
HLIN 0,39 AT TI: NEXT 

40 COLOR= 0: FOR I = 1TO7Z:R 
EAD A: VLIN 20,30 AT A: NEXT 

50 DATA 8,11,17,20,23,29,32 

60 COLOR= 15: FOR I = 1 TO 20: 
READ A: VLIN 20,39 AT A: NEXT 





70 DATA 6,7, 9,10, 12,13,15,1 
6,18,19, 21,22,24,25,27,28,30,3 
1,33,34 

80 VTAB 21: HTAB 9: PRINT "2 


3": TAB( 18B);"5 6 7”; TAB( 30 
"9 o" 
90 VTAR 22: HTAB B: PRINT "Q 


VE RTTYTYÃYEG PR 

100 VTAB 24: HTAB 7: PRINT "DO 
RE MI FA S0 LA SI DO”; 

110 GET K5: POKE 900,60 

120 IF KS = "Q” THEN POKE 901 
196: CALL BOO: GOTO 110 

130 JF K$ = "2º THEN POKE 90) 
190: CALL 800: GOTO 110 

140 IF K$ = "Wº” THEN POKE 901 
185: CALL BOO: GOTO 110 

150 IF K$ = "3º THEN POKE 901 
(80: CALL BOO: GOTO 110 

160 IF KS = "E” THEN POKE 901 
,/76: CALL BOO: GOTO 110 

170 JIF KS = "R”º THEN POKE 901 
,?2: CALL BOO: GOTO 110 

180 IF K3 = 75" THEN POKE 901 


167: CALL BOO: GOTO 110 
190 IF K$ = "T”" THEN POKE 901 
(64: CALL 800: GOTO 110 
200 IF K$ = "6" THEN POKE 901 


160: CALL 800: GOTO 110 
210 IF K$ = "Y” THEN POKE 901 
1/26: CALL BOO: GOTO 110 
220 IF KS = "7" THEN POKE 901 
23: CALL BOO: GOTO 110 
230 IF KS = "U” THEN POKE 901 
150: CALL 800: GOTO 110 
240 IF K$ = "I”" THEN POKE 901 
5/47: CALL 800: GOTO 110 


250 IF KS = "9" THEN POKE 901 
,/45: CALL BOO: GOTO 110 
260 IF KS = "0" THEN POKE 901 
,/42: CALL 800: GOTO 110 
270 IF KS = "0" THEN POKE 901 


(40: CALIL 800: GOTO 110 

280 IF K3 = "P* THEN POKE 901 
537: CALL 800: GOTO 110 

290 GOTO 110 


O programa acima funciona normal- 
mente nos micros da linha TK-2000. 
Contudo, muitos de seus usuários po- 
dem preferir usar o comando SOUND, 

Para isto, basta eliminar as linhas 20 
e 30 e modificar a linha 110, dando-lhe 
a seguinte forma: 


110 GET K3: D = 60 
A seguir, modifique todas as ocorrên- 
cias de: 
POKE 901,F:CALL 800 
para 
SOUND F,D 


onde F não é uma variável, mas o mes- 
mo número que ocorre após o POKE 


Os usuários do TK-2000 podem mu- 
dar as cores nas linhas 35, 40 e 60, já 
que as cores do Apple são diferentes. 









O programa começa limpando a tela 
e colorindo-a de azul, A mesma linha 
também estabelece os parâmetros de vo- 
lume, duração e velocidade das notas 
que serão executadas pelo comando 
PLAY. O artigo Quebre a Barreira do 
Som explica a sintaxe desse comando. 

As linhas 20 e 30 posicionam as no- 
tas usadas pelo programa dentro da ma- 
triz N$. A linha 40 coloca num cordão 
as teclas que serão utilizadas e em ou- 
tro os nomes correspondentes a algumas 
delas (dó, ré, mi etc). 

As linhas 50 a 110 cuidam dos dese- 
nhos na tela, colorindo-os de laranja € 
preto. Depois disso, o computador es- 
pera que pressionemos uma tecla. Se es- 
ta não corresponder a uma nota, o com- 
putador voltará à linha 120 e esperará 
por outra. 

A linha 140 executa a nota com o au- 
xilio do comando PLAY. A tonalidade 
da nota é definida pela variável NT, que 
depende da tecla pressionada. NT é usa- 
da para selecionar o elemento da matriz 
N$ que contém os parâmetros adequa- 
dos da instrução PLAY. 

Usando o comando ON...GOUTO, o 
computador imprimirá na tela o nome 
da nota (se esta fizer parte da primeira 
oitava de “ C maior"), retornando em 
seguida para esperar uma nova tecla. 


10 CLS 3:PLAYºV31LATB*: BS=CHRS ( 
175) 

20 DIM N$S(21):FOR K=0 TO 19:REA 
D NS(K) : NEXT 

30 DATA C,CE,D,D6,E,F,FH,G,Gt,A 
-A4,B,04C,04C4,04D,04D4,04E,04F 
/04F4,04G 

40 M$="Q2W3ER5ST6Y7UI900PE-"+CHR 
3 (B) :D$=" QUERTYUIO” 

50 FOR K=0 TO 6:READ A:N=2*A-20 
*INT(A/10):POKE 1093+N,A:POKE 1 
125+N,A:NEXT 

60 DATA 50,51,53,54,55,57,48 

65 POKE 1113,45:POKE 1145,45 

70 FOR K=0 TO 11:READ A:POKE 11 
24+K*2,A:POKE 1156+K*2,A:POKE 1 
188+K*2,A:NEXT 

80 DATA 81,87,69,82,84,89,85,73 
/79,80,64,95 

90 PRINT €260,"d"BSºr"BS“m"BS“£ 
"BS"s"BS8"1"B8"s"BS"d”"; | 
100 PRINT €292,"0"BS"e"BS"i"BS* 
a"B$"o"BS"a"BS"i"B3"o”; 

110 SCREEN 0,1 

120 AS=INKEYS:IF AS=""* THEN 120 
130 NT=INSTR(M$,AS):IF NT=0 TRE 
N 120 

140 PLAY"O3"+NS(NT-1) 

150 PRINT €0,;:D=INSTR(D3,AS):O 
N D GOTO 170,180,190,200,210,22 
0,230,170 

160 PRINT B3;B$;:GOTO 110 

170 PRINT"DO”;:GOTO 110 

180 PRINT"RE";:GOTO 110 





190 PRINT*MI";:GOTO 110 
200 PRINT"FA";:GOTO 110 
210 PRINT"8SO0”;:GOTO 110 
220 PRINT"LA”;:GOTO 110 
230 PRINTºSI*;:GOTO 110 


UMA SINFONIA DE BEETHOVEN 


O que podemos tocar nesse teclado 
musical que o programa acaba de criar? 
Que tal uma canção de ninar, por exem- 
plo? Ela começa com dó, de forma que 
a primeira tecla é Q; você terá que des- 
cobrir o ritmo “de ouvido”: 


E, agora, esta passagem famosa da 
Nona Sinfonia de Beethoven, compos- 
ta quando o artista já estava surdo: 


EE,R,T,T,R,E,W 
Q,Q,W,E,E,W,W 


Executemos a seguir o tema do filme 
À Noviça Rebelde: 


CHEM LO 


= 


Nessa melodia existem apenas três 
notas fora da escala (perto do final). 
Aqui estão as teclas para tocar o Início 
de Jesus Alegria dos Homens, de Jo- 
hann Sebastian Bach: 


Q,W,E,T,R,R,Y,T,T,LU,LT,E, 
Q,W,E,R,T,Y,T,R,E,W,E,Q 


Infelizmente, neste ponto, a música 
“cal fora do teclado”. 








| | | 
| | 
| | 
| | | 


COMPLETE O 


JOGO DE PALAVRAS 


Neste artigo completaremos o jogo de 
palavras começado na lição anterior. 
Nele você encontrará tudo o que ainda 
é necessário para começar a jogar. Di- 
gite as linhas que faltam e veja algumas 
aplicações interessantes para os coman- 
dos de manipulação de cordões alfanu- 
méricos do computador. Depois, desa- 
fie seus amigos para adivinhar palavras 
bem complicadas. 

Aqui estão as rotinas para cada uma 
das opções do jogo: comprar letras, adi- 
vinhar uma letra em uma posição espe- 
cífica da frase, e adivinhar a frase intei- 
ra. O programa também faz a contagem 
de pontos assim como do número de 
tentativas e de jogadas. 


370 IF d5<>"XX" AND dS$<>" 22" 
AND LEN d5>1 THEN GOTO 360 
380 IF dS=CHRS 32 THEN GOTO 
410 

385 IF d5="ZZ2" THEN 
+ GOTO 900 

390 IF CODE d5<65 OR CODE dS> 
90 THEN GOTO 360 
400 IF dS$="XX" THEN 


LET d$="" 


LET d$="" 








Jo TO 500 
410 GOSUB 790 
420 LET e=0 
430 LET e=e+l 
440 IF e=l1+1 THEN 
- LET qgS(m TO m+7)="": PRINT 
AT 4,0;aS: LET d$="": GOTO 470 
450 IF aS(e)<>dS THEN GOTO 
430 
460 IF sS(e)=dS THEN 
)j=dS: GOTO 430 
470 PAUSE 100: PRINT AT 14,0:: 
FOR r=1 TO 7: PRINT º 
: "+ NEXT r 
480 PRINT PAPER 2; INK 6G:;AT 1 
| 22:tb; CHARS 32: PRINT PAPER 2 
* INK 6:;AT 14,0;7z5: PRINT " TE 
NTATIVA ":f: LET f=E+l: IF 9S= 
z5 THEN GOTO 7/30 
490 GOTO 360 
500 INPUT "QUAL CARACTER QUER 
ADTVINHAR 2", LINE ds 
510 TF LEN d$>1 THEN GoTo 500 
520 IF dS=CHAS 32 THEN GOSUB 
790: GOTO 550 
530 TF CODE d$<65 OR CODE dS> 
90 THEN GOTO 500 
540 GOSUB 790 
550 PRINT PAPER 2; INK 6;AT 
18,0:dS: PRINT AT 18,2;"EM QUA 
L POSICAO ? - Use as tecl 


LET tb=tb-gqg 


LET z5(e 





Nonada. É com essa palavra misteriosa 
que tem início Grande Sertão: 
Veredas, de Guimarães Rosa. Surpreenda 
seus adversários com expressões 
como essa, jogando o jogo de palavras. 





as DIREITA e ESQUERDA = 
'0' para definir.” 

560 PRINT PAPER 2; INK 6;AT 
14,0:;z58: PRINT PAPER 6; INK 2 


AT 14,b;z5(b+1) 

570 PAUSE 0: LET vyS=INKEYS: IF 
vS8="" THEN GOTO 570 

590 IF y58="B8" AND b<1l-1 THEN 
LET b=b+1 

600 IF vyS="5” AND b>0 THEN 

LET b=b-1 

610 IF vS="0" THEN GOTO 6B0 
640 IF b>=32 THEN LET w=15: 
LET v=b-32 

650 1F b<32 THEN 
LET v=b 
660 PRINT 
14,0;z5: PRINT 
AT w,v;zS (b+1) 
670 GOTO 570 
680 IF zS(b+1)<>"*" THEN GOTO 
870 

690 IF aS(b+1)<>d5S THEN LET 
tb=tb-9g/2: PRINT FLASH 1;AT 
17, 0:"QUE AZAR!": PAUSE 50: 
LET b=0: GOTO 470 

700 IF sS(b+1)=d5$ THEN PRINT 
FLASH 1L;AT 17,0;"MUITO BEM !": 
PAUSE 50: LET zS(b+1)=dS: LET 
tb=tb+g: LET b=0 

710 IF s$ez58 THEN GOTO 730 


LET w=l4: 


INK 6;AT 
INK 2 


PAPER Z; 
PAPER 6; 





' a a, | | 
Ciro DEE Sd E UR PRO ES SA RR 


720 GOTO 470 

730 PRINT INK 6; PAPER 2;AT 1 
.22:tb: PRINT AT 17,0;" PARABEN 
S, "sbS:;TAR O:TAB 31;” *: 
PAUSE 100: CLS 
740 LET k=k+1: 
GOTO B8B0 

750 LET cõ-aS: LET aS=b$: LET 
b$=cS 

760 LET tc=ta: 
tb=tc 

770 LET qS="": 
f=) 

780 GOTO 160 
790 LET m= (CODE d$-64)*B-/7 

B00 IF m=-263 THEN LET m=209 
B1lO IF qS(m TO m+5)="" THEN 
GOTO 360 

820 LET q=VAL qS(lm+2 TO m+3) 
830 RETURN 

880 IF ta>tb THEN CLS PRINT 
aS;” VENCEU POR ";ta;” A *;tb 
B90 IF tb>ta THEN CLS PRINT 
b$;" VENCEU POR ";tb;” A “ita 
B92 IF ta=tb THEN CLS : PRINT 
" O RESULTADO FOI UM EMPATE 1!” 
B95 STOP 

900 INPUT "INTRODUZA A FRASE”, 
LINE h$ 

910 IF h$<>sS THEN PRINT 
FLASH 1;AT 17,0;"ERBADO !*: 


IF k=t*2 THEN 


LET ta=tb: LET 


LET d=0: LET 


A NOVAS ROTINAS PARA 
CONCLUIR O JOGO DE PALAVRAS 
mm COMPRE LETRAS 
m VERIFICAÇÃO DO PALPITE 
DO JOGADOR 

PAUSE 50: LET tb=tb-50: PRINT 


INK 6; PAPER 2Z;AT 1,22;tb: 
PRINT AT 15,0;"º TENTATIVA ";f: 
LET f=f+]: GOTO 360 

920 FOR n=s1l TO 1: LET d$=z5 (n) 
- TF d$<>"*" THEN GOTO 950 
930 LET m= (CODE 5s5(n)-64)*8B-7: 
IF m=-263 THEN LET m=209 

940 LET tb=tb+VAL qS(m+2 TO m+ 
3) 

950 NEXT n: GOTO 730 


360 PRINT €384,"";:LINE INPUT ” 
XX=ADIVINHAR LETRA 
ZZ=ADIVINHAR A FRASE 
A-Z=COMPRAR O CARACTER ?7";DS 
370 IF D$<>"XX”" AND DS<>"ZZ”" AN 
D LEN(DS)>1 THEN 360 
380 IF D$=CHR$(32) THEN 410 
385 IF D$="ZZ" THEN D$S="":GOTO 
1000 
390 IF DS<"A” OR DS>"Z” THEN360 
400 IF D$="XX” THEN DS="":GOTO 
500 
410 GOSUB 790 
420 E=0 
430 E=E+1 

















qa E = rap idas 
RR 
ut 


HE COMO ADIVINHAR UMA LETRA 


E ET à 


EM POSIÇÃO ESPECIFICA 
E  ADIVINHE A FRASE COMPLETA 
E A INSTRUÇÃO CALL NO APPLE 
| E NO TK-2000 


440 IF E=L+1 THEN TB=TB-G:MIDS( 
25,M,8)=" “1 PRINT 696,05 
“D3="":GOTO 470 

450 IF MIDS(S$S,E,1)<>DS THEN430 
460 IF MIDS(S$S,E,1)=DS THEN MID 
S (Z8,E, 1) =D3:GOTO 430 

470 GOSUB 950:PRINT €448:PRINT 

6416: PRINT 6480, STRINGS (31,32); 
480 PRINT €54,TB: PRINT €352,2Z28: 
PRINT €320," TENTATIVA" ;F:F=F+1: 
IF 8$=25 THEN 730 

490 GOTO 360 

500 PRINT €448: PRINT €6416:PRINT 
€6448,"";:LINE INPUT "QUER ADIV 
INHAR QUAL CARACTER 7?7";DS 

510 IF LEN(DS)>1 THEN 500 

520 IF DS=CHRS(32) THEN GOSUB 7 
90:GoTO 550 

530 IF DS<“A” OR D$>"Z” THEN500 
540 GOSUB 790 

550 PRINT 6448," EM QUAL POSICAO 
? - USE SETAS E "0' PARA DEFIN 
IR." 

560 PRINT 6€352,2Z53:POKE 1024+352 
+B, (ASC(MIDS (Z28,B+1,1))JAND 191) 
570 YS=INKEYS:IF YS$="" THEN 570 
590 IF YS=CHR$S(9) AND B<L-l THE 
N B=B+1 

600 IF YS=CHRS(B) AND B>0 THEN 

B=B-1 

610 IF Y$="0" THEN 680 





660 PRINT 8352,2Z3:POKE 352+1024 

+B, (ASC(MIDS (Z3,B+1,1))AND 191) 

670 GOTO 570 

680 PRINT €6480,STRINGS(31,32);: 

IF MIDS(Z5,B+1,1)=DS THEN TB=TB 

-G: PRINT €448,"TRAPACEIRO!”":FOR 
DE=1 TO 100:NEXT:B=0:GOTO 470 
690 IF MIDS(5S,B+1,1)<>DS THEN 
TB=TB-G/2: PRINT €448,"QUE AZAR! 
":FOR DE=1 TO 100:NEXT:B=0:GOTO 
470 

700 IF MIDS(98S,B+1,1)=-DS THEN P 
RINT 8448,"MUITO BEM!":FOR DE=1 
TO 100:NEXT:MIDS (Z8,B+1,1)=DS: 
TB=TB+G:B=0 

710 IF 88=28 THEN 730 

720 GOTO 470 

730 PRINT 6480," PARABENS, 
"GOSUB 950:CLS 

740 K=K+1:IF K=T*2 THEN 880 
750 CS=AS:AS=BS:BS=CS8 

760 TC=TA:TA=TB:TB=TC 

770 QS="":D=0:F=1 

780 GOTO 160 

790 M=(ASC(DS)-64)*8-7 

B0O0 IF M=-263 THEN M=209 
B1LO IF MIDS(Q3,M,6)=" 

N 360 

B20 G=VAL (MIDS (05,M+2,2)) 
B30 RETURN 

B80 IF TA>TB THEN CLS:PRINT AS; 
* VENCEU POR";TA;"A”;TB 

B90 IF TEB>TA THEN CLS:PRINT BS; 
* VENCEU POR"; TB;"A";TA 

B92 IF TA=TB THEN CLS:PRINT"O R 
ESULTADO FOI UM EMPATE !” 

B95 END 

1000 PRINT 8448B:PRINT €416:PRIN 
T 8416," INTRODUZA A FRASE -":LI 
NE INPUT GUS 

1010 IF GUS<>5S THEN PRINT 6416 
+, “ERRADO !":TB=TB-50: PRINT €54, 
TB:GOSUB 950: PRINT 8320," TENTAT 
IVA" ;F;:F=F+1:GOTO 360 

1020 FOR N=1 TO L:DS=MIDS(ZS,N, 


"188; 


"THE 


1) : IF DS<>"*" THEN 1050 

1030 M= (ASC(MIDS(SS$,N,1))-64)*8 
-7:IF M=-263 THEN M=209 

1040 TB=TB+VAL (MIDS(0S,M+2,2)) 
1050 NEXT N:GOTO 730 


ny 


167 SS="" 

360 LOCATE 0,21:PRINTSPC(77):L0 

CATE 0,21:PRINT"XX-Adivinha let 

ra Zê-Adivinha frase": INPUT” 
A-Z Compra letra ";DS 

370 IF D5c<>"XX" AND D5<>"2ZZ" AN 

D LEN(D$S)>1l THEN 360 

380 IF D$="" THEN DS=".":GOTO 4 

LO 

385 IF D$="2Z2" THEN DS="":GOTO 

1000 

390 IF (DS<"A”" OR DS>"Z") AND D 

54>"2”" THEN 360 

400 IF DS="XX" THEN DS="":GOTO 

5010 

410 GOSUB 790 

420 E=0 

430 E=E+] 

440 IF E=L+1 THEN TB=TB-G:MIDS( 

25.M,7+(N/5=INT(N/5)))=5TRINGS( 

B, 32) :LOCATE 0,4: PRINTQOS:DS="": 

GoTo 470 

450 IF MIDS(5SS,E,1)<>D5 THEN 43 

O 

460 IF MIDS(5S,E,1)=D5 THEN MID 

S(Z5,E,1)=DS:GOTO 430 

470 GOSUB 950 

480 LOCATE25,1:PRINTTB;"pontos" 

'LOCATE 0,12:PRINTZS:LOCATE 0,1 

5S:PRINT"Tentativa ";F:F=F+l:IF 

88=ZS8 THEN 730 

490 GOTO 360 

500 LOCATE 0,21:PRINTSPC(77):LO 

CATE 0,21: INPUT"QUAL A LETRA” ;D 

5 

510 IF LEN(D$S)>1] THEN 500 

520 IF D5="" THEN DS=CHAS(32):G 
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OSUB 790:GoTO 550 

530 IF (DS<"A” OR D$>"Z”") AND D 
$<>"Ç” THEN 500 

540 GOSUB 790 

550 LOCATE 0,21:PRINTSPC(77):LO 
CATE 0,21:PRINT"INDIQUE A POSIÇ 

AO USANDO AS SETAS PARA 

MARCAR TECLE <0>” 

555 B=0:V=12:BB=0 

560 LOCATE BB,V,1 

570 YS=INKEYS:IF Y$="" THEN 570 
590 IF YS=CHRS(28) AND B<L-1 TH 
EN B=B+1 

600 IF YS=CHR$(29) AND B>O THEN 
B=B-1 

605 BB=B:V=12:IF B>39 THEN BB=B 
-40:V=13LIST 600- 

610 IF Y$="0" THEN 680 

670 GOTO 560 

680 IF MIDS(28,B+1,1)=DS THEN T 
B=TB-G:LOCATE 0,21: PRINTSPC(/7) 
'LOCATE 0,21:PRINT"TRAPACEIRO!" 
-GOSUB 950:GOTO 470 

690 IF MIDS(SS,B+1,1)<>DS THEN 
TB=TB-G/2:LOCATE 0,21:PRINTSPC( 
77):LOCATE 0,21:PRINT"ERROU DES 
TA VEZ...”:GOSUB 950:GOTO 470 
700 IF MIDS(SS,B+1,1)=DS THEN L 
OCATE 0,21:PRINTSPC(/7/): LOCATE 
0,21:PRINT"BOM PALPITE!":MIDS(Z 
S,B+1,1)=DS:GOSUB 950:TB=TB+G 
710 IF S$=Z25 THEN 730 

720 GOTO 470 

730 LOCATE 0,21:PRINTSPC(77):LO 
CATE 0,21:PRINT"PARABENS! ACERT 
OU!”:BEEP:GOSUB 950:BEEP:CLS 
740 K=K+1:IF K=T*2 THEN 880 

750 SWAP AS,BS 

760 SWAP TA,TB 

770 Q$="":D=0:F=1:S88="" 

780 GOTO 160 

790 M=INSTR(0S,DS) 

800 IF D$="." THEN D$=CHRS (32) 
810 IF MIDS(0S,M,5)=STRINGS (5,3 
2) THEN 360 





820 G=VAL (MIDS (05S.M+2,2)) 

830 RETURN 

B80 IF TA>TB THEN CLS: PRINTAS;” 
GANHOU POR"; TA;"PONTOS A"; TB 
890 IF TB>TA THEN CLS: PRINTBS;” 
GANHOU POR"; TB;"PONTOS A";TA 
B92 IF TA=TB THEN CLS:PRINT O J 
0G0 TERMINOU EMPATADO EM": PRINT 
TA;" PONTOS” 

895 END 

950 FOR DE=1 TO 1000:NEXT:RETUR 
N 

1000 LOCATE 0,21:PRINTSPC(77):L 
OCATE 0,21:PRINT"DIGITE A FRASE 
COMPLETA:":LINEINPUT GUS 

1010 IF GUS<>55 THEN LOCATE 0,2 
1: PRINTSPC(7):LOCATE 0,21:PRINT 
"ERRADO!" : TB=TB-50:LOCATE 25,1: 
PRINTTB;"pontos”:GOSUB 950:LOCA 
TE 0,15:PRINTºTENTATIVA”;F:F=F+ 
1:GOTO 360 

1020 FOR N=1 TO L:DS=MIDS(ZS,N, 
1):IF DS$<>"*" THEN 1050 

1030 IF D$=CHR$(32) THEN D$=".." 
'M=INSTR(053,DS) 

1040 TB=TB+VAL (MIDS(0S,M+2,2)) 
1050 NEXT:GOTO 730 


É LS] 


370 IF DS < > "ZZ" AND DS Ss 

> "XxX" AND LEN (DS) > 1 THEN 3 

SO 

380 IF DS = "" THEN D3 = 
(32): GOTO 410 

385 IF DS = "Zã' 
GOTO 1000 

390 IF DS < “A” 

EN 360 

400 IF DS = 
Goto 500 

410 GOSUB 790 

420 E = 0 

430 E = E +11 

440 IF E =L+ Il THENTE=TB 


CHARS 
THEN DS = "": 
OR DS > "2" TH 


"XX" THEN DS = *": 


- 6:08 = LEFTS (QS,M - 1) + 7 
"+ MIDS (08,M + 8)! W 

AB 5: PRINT Q$:DS = "": GOTO 47 

O 

450 IF MIDS (88,E,1) < > DS 

THEN 430 

460 IF MIDS (SS,E,1) = DS THE 

N Z8 = LEFTS (Z5,E) + DS + MI 

DS (Z8,E + 2): GOTO 430 


470 FOR DE = 1 TO 300: NEXT 
480 VTAB 2: HTAB 25: PRINT TB; 
” PONTOS ": VTAB 12: HTAB 40: 
PRINT Z$: VTAB 16: PRINT "TENTA 


TIVA "E:F = E + L: IF 87 = MI 
DS (25,2) THEN 710 

490 GOTO 360 

500 VTAB 22: CALL - 958: INPU 


T "QUAL A LETRA ";D5S 


510 IF JLEN (DS) > 1 THEN 500 

520 IF DS ="*” THEN DS =" ": 

GOSUB 790: GOTO 550 

530 IF DS < "A" OR DS > "Z" TH 
EN 500 

540 GOSUB 790 

550 VTAR 22: CALL - 958: PRIN 


T "COLOQUE O MARCADOR SOB A POS 
ICAO DESEJADA E TECLE [ENTER)"; 
“B = 1 


560 VTAB 14: CALL - 868: HTAB 
B: PRINT CHARS (94) 

570 GET 753: IF Y$ = CHR$ (13) 
THEN 680 

590 IF YS$ = cCHR$ (8) AND B > 

1 THEN B = B-1 

600 IF YS = CHARS (21) AND B < 


L THEN EB = B + 1 
670 GoTO 560 
680 VTAB l4: CALL 
22: IF MIDS (Z8,B,1) 
N PRINT "TRAPACEIRO!”; 


- 958: UTAB 
- D$ THE 
Ra E TE 


- G: FOR DE = 1 TO 300: NEXT : 
Goto 470 
690 IF MIDS (88,B,1l) &« > DS 


THEN TB = TB - G / 2: PRINT "ER 
ROU DESTA VEZ... 


. = 


"1: FOR DE = 1 


TO 300: NEXT : GOTO 470 
700 IF MIDS (88,B,1) = DS THE 
N PRINT CBOA! ";:TB = TB + G:Z 


S = LEFT3S (253,8) + D3 + MIDS 
(Z9.B + 2): FOR DE = 1 TO 300: 

NEXT 

710 IF 55 = MIDS (Z5,2) THEN 
FLASH VTAB 13: PRINT 553: CAL 
L - B68B: NORMAL GOTO 730 

720 GOTO 470 

730 VTAB 22: CALL - 958: PRIN 


T "PARABENS!" : GOSUB 950: HOME 
AO Jd) +: TE J=7 Ti THE 
N 880 

130 CS = AS:IAS = BS:B$ = CS 


tou TO = TATA = TB:TD & dl 

770 QS = "PD = Q:E = 

780 GOTO 160 

790 M = ( ASC (DS) - 64) * & - 
6 

800 IF DS = CHARS (32) THEN M 
= 218 

805 IF DS = “Z" THEN M = Z10 
810 IF MIDS (03,M,2) =" "TT 
HEN POP : GOTO 360 

B20 G = VAL ( MIDS (0QS.M + 2,2 
1) 

830 RETURN 

B80 IF TA > TB THEN HOME : PR 
INT PRINT AS;" GANHOU POR ";T 
A;” PONTOS A ":;TB 

B90 IF TA S TB THEN HOME : PR 
INT PRINT B$;” GANHOU POR ";T 


B;" PONTOS A ";TA 


B92 IF TA = TB THEN HOME : PR 
INT : PRINT "O JOGO TERMINOU EM 

PATADO EM ": PRINT TA;” PONTOS! 

895 END 

950 FOR DE = 1 TO 3000: NEXT 
RETURN 

1000 VTAB 22: CALL - 958: INP 

UT "ENTRE A FRASE: ";GUS 

1010 IF GUS < > SS THEN VTAB 
22: CALL - 958: PRINT "ERRADO 








Por que as linhas em que há a instru- | 


' ção CALL diferem nos programas do 


Apple e do TK-2000? 

Porque a instrução CALL seguida de 
um certo número de linhas serve para 
acionar uma rotina em linguagem de 


máquina. No nosso caso, essas linhas | 


constituem rotinas intrínsecas do com- 
putador, ou seja, são rotinas próprias 
da máquina. 


No Apple, a instrução CALL — 958 


| faz com que a tela seja apagada desde 


o cursor até a última posição de vídeo, 


| sem alteração na posição do cursor. No 


| Ássim, ele deve ser reposicionado após | 


TK-2000, ela faz a mesma coisa, mas 


com uma diferença: agora, o cursor é | 


colocado na primeira posição da tela. 


o comando. 


Já a instrução CALL —- 868 provo- 
ca, no Apple, o apagamento da linha 
em que está o cursor a partir da posi- 
ção deste. À mesma instrução no TK- 
2000 não tem um efeito necessário pa- 
ra O nosso programa. 





"TB = TB - 50: VTAB 2: HTAB 2 
ba 
PRINT "TENTATIVA ";F:F = F +11 
FOR DE = 1 TO 300: NEXT : GOT 


PRINT TB;”" PONTOS": VTAB 16: 





O 360 
1020 FOR N = 2 TOL+I:DS = 


MIDS (Z8,N,1): IF D3«< > "* T 
HEN 1050 

LUSU M = ( ASU CMLLS (SFN 
dj) =164) € 8 = 6: LFM= —- & 


62 THEN M = 218 


1035 IF M = 202 THENM=M+õB 
1040 TB = TB + VAL ( MIDS (05, 
M + 2,2)) 

1050 NEXT :Z8 =" " + 85: GOTO 


710 


Para executar o programa no TK- 
2000, faça as seguintes modificações: 


500 VTAR 22: CALL - 958: VTAB 
22: INPUT "QUAL A LETRA ";D5 
550 VTAR 22: CALL - 958: VTAB 
22: PRINT "COLOQUE O MARCADOR 
SOB A POSICAO DESEJADA E TECLE 

[ENTER]":;:B = 1 
560 VTAB 14: PRINT SPC( 40): 


VTAR 14: HTAB B: PRINT CHRS (9 
4) 
680 VTAB 14: CALL - 958: VTAB 


22: IF MIDS (28,B,1) = DS THE 
N PRINT "TRAPACEIRO!";:TB = TB 
- G: FOR DE = 1 TO 300: NEXT 

GOTO 470 
710 IF SS = MIDS (25,2) THEN 
VTAB 13: PRINT 85: GOTO 730 
730 VTAB 22: CALL - 958: VTAR 
22: PRINT "PARABENS!" : GOSUB 9 
50: HOME 
1000 VTAR 22: CALL - 958: VTA 
B 22: INPUT "ENTRE A FRASE: ";G 
Us 
1010 IF GUS < > 85 THEN VTAB 
22: CALL - 958: VTAB 22: PRIN 
T "ERRADO!":TB = TE - 50: VTAB 


2: HTAB 25: PRINT TB;" PONTOS”: 

VTAB 16: PRINT "TENTATIVA ";F: 
F=F + 1: FOR DE = 1 TO 300: N 
EXT : GOTO 360 


Como na parte anterior da listagem, 
existem pequenas variações entre as má- 
quinas, mas, de maneira geral, os pro- 
gramas são muito parecidos. 

As linhas 370 a 410 manipulam a op- 
ção do jogador — comprar letras, adi- 
vinhar letras ou mesmo descobrir a fra- 
se toda. A rotina identifica o tipo de pal- 
pite e evita que sejam feitas entradas 
ilegais. 


COMO COMPRAR LETRAS 





Se o jogador decidir comprar uma le- 
tra, o computador verificará imediata- 
mente qual o valor dessa letra. Para is- 
so, é acionada uma sub-rotina que co- 
meça na linha 790. Esta encontra o va- 
lor ASCII da letra para saber até que po- 
sição da tabela de valores deve ir. Se o 
computador encontrar um espaço em 
branco na posição, isso significa que a 
letra já foi comprada e o programa vol- 
tará à linha 360. Do contrário, será li- 
do o valor da letra, por intermédio da 
função VAL. Esse valor é utilizado pa- 
ra calcular o novo número de pontos do 
jogador. 

A rotina que cuida da compra de le- 
tras começa na linha 430. As linhas 430 
a 460 passam pela frase procurando 
ocorrências da letra. A cadeia de aste- 
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riscos é atualizada, substituindo-se os 
asteriscos pela letra comprada, quando 
isso ocorrer. A nova cadeia é então mos- 
trada na tela e o valor da letra subtrai- 
do do total de pontos. O número de ten- 
tativas é incrementado de 1. A linha 440 
apaga a letra escolhida da tabela, indi- 
cando que ela não está mais disponível. 





ADIVINHE LETRAS EM UMA POSIÇÃO 


Se o jogador quiser tentar acertar 
uma letra em posição específica, deve 
primeiro selecionar XX. Esse procedi- 
mento faz o programa pular para a li- 
nha 500. O jogador deve então dizer que 
letra vai ser usada. Várias verificações 
evitam que se faça uma entrada ilegal. 
Em seguida, é preciso mover o marca- 
dor para a posição desejada e pressio- 
nar O (no Apple, pressione <EN- 
TER>). O programa verifica se a letra 


está disponível e faz um teste para ver 
se o palpite é correto. 

Caso o jogador erre o palpite, a li- 
nha 690 enviará uma mensagem, sub- 
traindo metade do valor da letra do to- 
tal de pontos. Se letra e posição coinci- 
direm, a linha 700 emitirá uma mensa- 
gem de felicitações e somará o valor da 
letra ao total de pontos do jogador. 
Quando a frase é completada, a linha 
710 envia o programa para a 730, que 
dá a boa notícia ao jogador. 


“A FRASE COMPLETA 





Se o jogador for mais ambicioso, po- 
de querer adivinhar a frase inteira. Pa- 
ra isso, deve primeiro digitar ZZ. A li- 
nha 385 manda o programa para a linha 
900 (no Spectrum) ou 1000 (nos outros 
micros). A rotina pede que a frase seja 
digitada e a compara com a original, Se 
elas não forem iguais, o jogador perde- 


rá cinquenta pontos e o contador de ten- 
tativas será incrementado. Se o palpite 
for correto, o valor de todas as letras 
ainda não adivinhadas será somado ao 
total de pontos, e a linha 730 avisará o 
jogador que a frase está correta. 





FIM DO JOGO 


Adivinhada a frase, o programa ve- 
rifica o número de jogadas realizadas. 
Este não pode ser maior que o determi- 
nado no início do jogo. Se o número 
ainda for menor, o próximo jogador se- 
rá chamado, depois que uma nova fra- 
se tenha sido introduzida. Quando o jo- 
go acaba, o programa passa à linha 880. 
Os pontos são comparados e o resulta- 
do final é apresentado. 

O jogo termina aqui, mas você pode 
implementar uma rotina do tipo “joga 
novamente?” para deixá-lo completo. 














SÍMBOLOS GRÁFICOS 
NO TK- 2000 


As telas gráficas no computador (OR 
e HGR) podem ser programadas por 
meio de diversas instruções extrema- 
mente poderosas, em média e alta reso- 
lução, tais como VLIN, HLIN, PLOT, 
HPLOT, DRAW e outras. 

Entretanto, o TK-2000 tem um recur- 
so gráfico adicional, habitualmente pou- 
co explorado, que os compatíveis com 
a linha Apple não têm. Trata-se dos ca- 
racteres gráficos, que estão disponíveis 
para o programador através de dois 
meios: entrada direta pelo teclado e in- 
serção por intermédio da função CHRS, 
do BASIC. 

O que são caracteres gráficos? Como 
você já sabe, os caracteres que aparecem 
no vídeo têm códigos numéricos intei- 
ros, que teoricamente podem variar en- 
tre O e 255. Cada caractere correspon- 
de, portanto, a um byte da memória de 
vídeo. Parte dessa codificação, conven- 
cionada internacionalmente, é o chama- 
do código ASCII, que vai de 32 a 126. 
Os códigos de O a 31 são normalmente 
utilizados em funções de controle do vi- 
deo e dependem do tipo de computador 
que está sendo usado. 

O mesmo acontece com os códigos 
que vão de 127 a 255. Nessa faixa, Os 
fabricantes utilizam geralmente os códi- 
gos para acomodar caracteres gráficos 
(que podem ser tipos especiais, como 
naipes de baralho, notas musicais etc., 
ou blocos gráficos formando linhas, ân- 
gulos e cantos). 


GRÁFICOS DA ROM 





Tais caracteres gráficos são também 
chamados de gráficos da ROM, pois já 
vêm pré-programados. Nos computado- 
res da linha TK-2000, os caracteres es- 
peciais ocupam a faixa da tabela de ca- 
racteres que vai de 193 a 242. 

Os sinais gráficos que mais nos inte- 
ressarão neste artigo são os blocos ge- 
ralmente utilizados na composição de 
desenhos formados por linhas retas, tais 
como tabelas ou formulários de entra- 
da. A vantagem desses blocos consiste 
em simplificar a programação, tornan- 
do desnecessária a mistura da tela grá- 
fica com o texto. Tal simplificação dei- 
xa aberto o caminho para o emprego de 
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Os computadores da linha TK-2000 
dispõem de um grande número 

de caracteres gráficos que podem ser 
entrados diretamente pelo 

teclado, ou usados em um programa. 
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o. SÍMBOLOS GRÁFICOS 
[LE GRÁFICOS DA ROM 
“4 COMO ENTRAR GRÁFICOS 


— PELO TECLADO 
ME SIMPLIFIQUE À PROGRAMAÇÃO 


comandos mais diretos, como VTAB, 
HTAB, PRINT, INPUT etc. 





ENTRADA PELO TECLADO 





Da mesma maneira que os caracteres 
convencionais do código ASCII (demar- 
cados sobre as teclas do microcomputa- 
dor), os sinais gráficos podem ser digita- 
dos pelo teclado. Para isso, é necessá- 
rio, em primeiro lugar, pressionar simul- 
taneamente as teclas <CONTROL > e 
<B>, Esse procedimento coloca o te- 
clado em modo gráfico. 

Em seguida, deve-se acionar simulta- 
neamente a tecla < SHIFT >, e uma das 
teclas alfanuméricas, ou então as teclas 
<SHIFT>, <CONTROL> e uma 
terceira. Com isso, o caractere deseja- 
do aparece diretamente na tela (por 
exemplo, dentro de uma cadeia alfanu- 
meérica). 

O manual de programação do TK- 
2000 exibe um desenho esquemático do 
teclado, no qual são assinalados todos 
os caracteres gráficos, em relação à dis- 
posição das teclas. Consulte também a 
tabela que apresentamos a seguir. 

Ao se terminar de digitar os caracte- 
res gráficos em uma linha, deve-se pres- 
sionar novamente <CONTROL> e 
<B>, para sair do modo gráfico. 

Por exemplo, se quisermos digitar O 
simbolo tradicional do naipe de paus, 
devemos teclar <CONTROL > <B> 
e, em seguida, <SHIFT> <R>. 

O programa abaixo demonstra como 
isso pode ser feito. Ele desenha uma ta- 
bela simples na tela, utilizando blocos 
gráficos e coloca depois os diversos no- 
mes digitados nas linhas da tabela. 


200 HOME 
210 PRINT "” 
220 PRINT " 
230 PRINT " === 
240 FOR I=1 TO 1 
250 PRINT " | | 
260 NEXT 1 

270 PRINT "LL 1 
275 FOR I=1 TO 10 

280 VTAB 20:HTAB 1 

290 INPUT "NOME : ";N$ 

300 VTAB I+3:HTAB 4: PRINT I 
310 VTAB I+3:HTAB 10: PRINT N$ 
320 NEXT 1 

330 VTAB 20:HTAB 1:STOP 








| | 
| , Ê | | | | | LI 


; CARACTERES GRÁFICOS 
EM PROGRAMAS 

| A FUNÇÃO CHR$ 

OS NAIPES DO BARALHO 

TABELA DE REFERÊNCIA 





Os traços devem ser digitados nesta 
sequência: 


Linha 210: 

<SHIFT> A 

<SHIFT> <CONTROL> F I4 vezes) 
<SHIFT> H 
<SHIFT><CONTROL> F (11 vezes) 
<SHIFT>S 

Linha 220; 
<SHIFT><CONTROL> C 
Linha 230: 
<SHIFT><CONTROL> H 
<SHIFT><CONTROL> G 
<SHIFT> <CONTROL> B 
<SHIFT> <CONTROL> G (11 vezes) 
<SHIFT> <CONTROL> N 

Linha 250: como à linha 220 

Linha 270; 

<SHIFT> Z 

<SHIFT><CONTROL> Fl4 vezes) 
<SHIFT> G 

<SHIFT><CONTROL> F (11 vezes) 
<SHIFT> X 


[4 vezes) 


Tanto na linha 220 quanto na linha 
250, os espaços em branco e as letras po- 
dem ser digitados normalmente, sem 
precisar sair do modo gráfico. Em ou- 
tras palavras: nas linhas que têm carac- 
teres gráficos (210, 220, 230, 250 e 270), 
basta pressionar <CONTROL > <B> 
uma vez, logo após digitar o sinal de 
abre aspas; em seguida, teclar os gráfi- 
cos e/ou as letras, e novamente < CON- 
TROL> <B>. Só depois disso, digita- 
se o sinal de fecha aspas. 

Existem duas desvantagens nessa for- 
ma de entrada de caracteres gráficos: 
primeiro, as teclas não têm qualquer 
marcação que auxilie o usuário a encon- 
trar o gráfico correto. Torna-se neces- 
sário então consultar o manual, o que 
faz o processo bastante moroso. Em se- 
gundo lugar, o programa não pode ser 
listado em uma impressora não gráfica, 
ou que não seja específica para a linha 
TK-2000. 





CARACTERES GRÁFICOS NO PROGRAMA. 


Existe ainda um outro truque para es- 
pecificar caracteres gráficos dentro de 
um programa sem precisar digitá-los di- 
retamente. A função que permite fazer 
isso é a utilíssima CHRS. 

Os caracteres normais, especiais e 
gráficos com códigos na faixa de 32 a 


255 podem ser impressos na tela a par- | 





| | 


tir de um programa, contendo a CHRS$ 
acompanhada do número de código do 
caractere desejado. Por exemplo, para 
imprimir na tela o símbolo de paus (nai- 
pe de baralho), digitamos: 


PRINT CHR$ (242) ;CHR$S(231) 


Portanto, para combinar códigos grá- 
ficos com a função CHRS, é preciso 
“avisar” o computador que o código se- 


rá usado como gráfico. Para isso, recor- 
remos a dois bytes: CHR$(242), segui- 
do de CHRS$(n), onde n é o código do 
caractere gráfico na tabela. O próximo 
programa mostra a tabela de correspon- 
dência entre códigos numéricos e gráfi- 
cos na tela do TK-2000: 

10 HOME 

20 FOR J=193 TO 242 STEP 6 

30 FOR I=J TO J+5 


CARACTERES GRÁFICOS PARA O TK-2000 


Código Teclas 
| 193 CONTROL SHIFT 1 
194 CONTROL SHIFT 2 E 
195 CONTROL SHIFT 3 E 
196 CONTROL SHIFT 4 mm 
197 CONTROL SHIFT 5 jm 
| 198 CONTROL SHIFT 6 
199 CONTROL SHIFT 7 E 
200 CONTROL SHIFTO [] 
201 CONTROLSHIFTW 
202 CONTROL SHIFTE 
203 CONTROL SHIFTR [E 
204 —CONTROLSHIFTT E 
205 CONTROL SHIFT Y E 
206 CONTROL SHIFTU E 
208 CONTROL SHIFTG E 
209 CONTROL SHIFT H E 
210 —CONTROLSHIFTB E 
211 CONTROL SHIFT N Hi 
212 CONTROL SHIFT A [lá 
213 CONTROL SHIFTS E 
214 CONTROL SHIFTZ 9 
215 CONTROL SHIFT X P 
216 CONTROLSHIFTD 
217 CONTROL SHIFTF E 


Caractere 218 


CONTROL SHIFT V [1] 





219 CONTROL SHIFT C 
220 CONTROL SHIFT J 
221 CONTROLSHIFTM 
222 — SHIFTT & 
223 SHIFT J 0) 
224 SHIFT G Em 
225 SHIFT H = 
226 SHIFT B q 
227 SHIFT N [E 
228 SHIFT Q à 
229 SHIFT W v 
230 SHIFT E ARNETA 
231 SHIFT R so. 
232 SHIFT D Fc 
233 SHIFT F q 
234 — SHIFTC. [E 
235 SHIFT V mM 
236 SHIFT A [2 
237 SHIFTS q 
238 SHIFT Z E 
239 SHIFT X 7 
240 SHIFT U x 
241 SHIET Y E 
242 SHIFT M no 





40 PRINT 1I;” ";CHR$(242);CHRS( 
8 ado 
50 NEXT 
60 PRINT 
70 NEXT J 
BO VTAB ZO:HTAB 1: PRINT 
"PRESSIONE RETURN” 
90 GET AS 

Os caracteres são impressos ordena- 
damente em fileiras, por meio dos dois 
laços que começam nas linhas 20 e 30. 
O primeiro laço varia J de 193 a 242 (fai- 
xa de códigos correspondente aos carac- 
teres gráficos), de 6 em 6. O laço seguin- 
te percorre todos os valores entre J e 
J+5. O PRINT da linha 60 serve para 
encerrar uma fileira de seis códigos € 
suas representações gráficas, que são 
mostradas na linha 40. 








me Fa a A E] aa im 


Mim kk fa ii dd fo a é 





Se quiser usar caracteres gráficos com 
certa frequência em um programa, de- 
ve armazenar o código de controle em 
uma variável alfanumérica, como no 
exemplo abaixo. Neste caso, os quatro 
símbolos dos naipes do baralho são ar- 
mazenados em N$ e seus nomes, em ES: 


5 HOME 

10 FOR I=1l TO 4 

£U READ EST) 

30 LET NS(1I)=CHARS(242)+ 
CHRS(22/+1) 

40 PRINT NS (I) 
30 NEXT 1 

60 DATA ESPADAS 
PAUS 


(ESCI) 


| COPAS, OUROS, 


Assim, toda vez que precisarmos im- 
primir na tela um dos quatro simbolos, 


REsp CETi: 


digitaremos PRINT NS(N), onde N é o 
código do naipe (1 = espadas, 2 = copas, 
3= ouros e 4= paus). 

Do mesmo modo quando quisermos 
utilizar uma cadeia de caracteres gráfi- 
cos em vários pontos de um programa, 
devemos armazená-lo em uma variável 
alfanumérica. Como o TK-2000 não tem 
a função STRINGS, que permite fazer 
isso com um único comando, é preciso 
escrever um laço de acumulação: 


10 HOME 

20 INPUT "CODIGO GRAFICO 
[193-242), 2. *; Cc 

30 INPUT "COMPRIMENTO (11-39) 
ade É É 

40 PRINT: PRINT: PRINT 

50 LET 988="* 


60 FOR I=1 TO L 

70 LET 858=S5S+CHRS (242) +CHRS (C) 
BO NEXT I 

90 PRINT 55 

100 GOTO 10 


A cadeia alfanumérica S8$ tem L ve- 
zes dois códigos, pois é necessário en- 
trar um código 242 antes de cada codi- 
go gráfico € (não funciona colocar ape- 
nas um código 242 como primeiro ca- 
ractere de S$). Se rodar esse programa 
com vários códigos ao acaso — ou en- 
trando-os em segliência para ver o re- 
sultado —, constatará que às vezes sur- 
ge uma interferência na tela inteira. Se 
Isso ocorrer, experimente interromper 
o programa, usando <CONTROL > 
<C> e digitando RUN novamente. 








Todas as técnicas usadas para colo- 
car dados em ordem apontam falhas, se- 
ja por dispenderem muito tempo, seja 
por exigirem um grande espaço de me- 
mória. Dessa forma, em cada aplicação 
específica é preciso procurar o método 
de ordenação mais eficiente, pois não 
existe uma técnica ideal que responda a 
todas as necessidades. 

Já estudamos alguns dos métodos 
mais populares de ordenação de dados; 
a seguir, mostraremos outros, com a res- 
salva de que alguns deles são apenas re- 
finamentos dos que foram apresentados 
anteriormente. Como você verá, estes 
são bem mais eficientes do que as ver- 
sões originais. 


SUBSTITUIÇÃO RETARDADA 





O principal defeito da ordenação ti- 
po bolha — a lentidão — torna-se par- 
ticularmente evidente quando é preciso 
organizar uma grande quantidade de 
itens. No entanto, com uma pequena 
modificação no algoritmo original, 
pode-se reduzir o tempo gasto pratica- 
mente à metade. 

A ordenação tipo bolha usa boa parte 
do tempo em comparar os diversos nú- 
meros da linha, trocando-os de posição 
até encontrar um valor maior. Nesse 
processo, várias trocas são feitas com 
grande dispêndio de tempo. 

A rotina de substituição retardada 
funciona de modo semelhante, mas di- 
fere no fato de que nenhuma troca é rea- 
lizada até que toda a linha tenha sido 
comparada. Vejamos um exemplo que 
emprega uma segiiência similar áquela 
estudada no artigo Ordenação pelo Mé- 
todo de Bolhas (página 292): 


início fim 


67 38 72 19 47 38 421 86 
O primeiro valor, 67, é comparado 
(mas não trocado) com 35, como acon- 
teceria na rotina de bolha normal; o 
mesmo acontece em relação ao primei- 
ro número maior que ele, 72. Este últi- 
mo é tomado como o novo maior nu- 
mero e comparado sucessivamente com 
19, 47, 38€e 11, antes de encontrar o va- 
lor máximo da sequência: 86. Este per- 













manece na última posição. O quadro 
que se segue mostra como tudo aconte- 
ce, passo a passo. Alguns números apa- 
recem entre colchetes. O primeiro deles 
é 86, o maior valor da primeira sequên- 
cia. Nas próximas linhas, os colchetes 
assinalam o maior número incorreta- 
mente localizado e o valor que ocupa seu 
lugar. Esses números são trocados na li- 
nha seguinte. Assim, na segunda linha, 
72 é identificado como o maior incor- 
retamente posicionado, e trocado com 
o 11, e assim por diante. 


início fim 
6) 35 72 29 4? 38 11[B6] 
67 35 [72] 19 47 38 [11] 86 
[67] 35 11 19 47 [38] 72 B6 


38 35 11 19 [47] 67 72 B6 
[38] 35 11 [19] 47 67 72 86 
19 [35][11] 38 47 67 72 66 
[191[11] 350 38 47 67 72 86 
JE JO sSu so 47 dMr7 wa TO 


O número de comparações feito é o 
mesmo da rotina tipo bolha, mas o de 
trocas é muito menor. 

Uma parte do programa a seguir é 
igual a um dos programas que aparecem 
no artigo Rotinas de Ordenação. Para 
executá-lo, basta adicionar as linhas de 
4000 em diante (cuidado para não con- 
fundir a letra I com o número 1, ao fa- 
zer a digitação). Os usuários do Apple 
e do MSX devem fazer as modificações 
no programa principal conforme o in- 
dicado para todas as máquinas. 


10 POKE 23658,8: LET T=0: 
INPUT "NUMERO DE ITENS ";AA: 
IF AA<2 THEN GOTO 10 

15 DIM A(AA) 

20 PRINT PRINT 
ARDENADA": PRINT 
30 FOR Z=1 TO AA 
40 LET A(Z)=INT (RND*100)+1 


"TABELA DESO 


50 PRINT TAB T;A(Z);: LET T=T 
+d: IF T>30 THEN LET T=0 

60 NEXT Z 

70 PRINT : PRINT : PRINT “PRE 
SSIONE 'O' PARA ORDENAR” 

BO LET KS$=INKEYS: IF K5S<>"0” 


THEN GOoTo BO 
90 GOSUB 4000 


100 PRINT PRINT "TABELA ORDE 
NADA”: PRINT 
110 LET T=0: FOR Z=1 TO AA 


Veja como pequenos melhoramentos nas 
rotinas de ordenação mais 

comuns podem aumentar sua velocidade 
de operação. E conheça 

uma rotina que bate todas as outras. 


120 PRINT TAB T;A(Z);: LET T=7 
+4: IF T>30 THEN LET T=0 
130 NEXT Z 
140 GOTO 10 
3999 REM ORBDENACAO POR SUBSTIT 
UICAO RETARDADA 
4000 FOR I=1 TO AA-1 
4010 LET K=1 
4020 FOR J=I+1 TO AA 
4030 IF A(J)<A(K) THEN LET K=J 
4040 NEXT J 
4050 IF I<X>K THEN LET T=A(K): 
LET A(K)=A(I): LET A(I)=T 
4060 NEKT 1 
4070 RETURN 


TITE 


10 PRINT:PRINT: INPUT "NUMERO DE 
ITENS" ;AA:IF AA<S2 THEN 10 

15 DIM A(AA) 

20 PRINT: PRINT"TABELA DESORDENA 

DA” : PRINT 

30 FOR Z=1 TO AA 

40 A(Z)=RND (100) 

50 PRINT A(Z); 

60 NEXT Z 

70 PRINT:PRINT:PRINT "PRESSIONE 
'0' PARA ORDENAR” 

80 KS=INKEYS:IF K$<>"0” THEN BO 

90 GOSUB 4000 

100 PRINT:PRINT:PRINT "TABELA O 

ADENADA” 

110 PRINT:FOR Z=1 TO AA 


) 





AAA RS PE 2 A RADM 


MAIS TÉCNICAS DE 
ORDENAÇÃO 
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120 PRINT A(Z); 

130 NEXT Z 

140 RUN 

31999 ORDENACAO 

RETARDADA 

4000 FOR 1I=1 TO AA-1 

4010 K=1 

4020 FOR J=I+1 TO AA 

4030 IF A(J)<A(K) THEN K=jJ 

] | 4040 NEXT J 
4050 IF I<>K THEN T=A(K) :A(K)=A 
| (I):A(I)=T 

4060 NEXT 1 

4070 RETURN 


E y 


Para que o programa acima rode no 
| MSX substitua as seguintes linhas: 


| 5 R=AND(-TIME) 
À | 40 A(Z)=INT(AND(1)*100+1) 
50 PRINTA(Z), 
120 PRINTA(Z), 
4050 IF I<>K THEN SWAP A(K) ,A(I 








POR SUBSTITUICAO 


E) 

 EIdid) 

) | Para que o programa acima rode nos 
| micros da linha Apple II e TK-2000, 


? | substitua as linhas a seguir: 
— 40 A(Z)=INT(RND(1)*100+1) 


» “ORDENAÇÃO POR 


SUBSTITUIÇÃO RETARDADA 
a ORDENAÇÃO POR 


ESPALHAMENTO: FAZ O QUE 
SE FARIA MANUALMENTE 


50 PRINTA(Z), 
80 GET K$:IF K$<>"0”" THEN 80 
120 PRINTA(Z), 


ORDENAÇÃO POR ESPALHAMENTO 





A ordenação por espalhamento é ou- 
tra rotina cuja velocidade se aproxima 
à da ordenação tipo bolha quando am- 
bas são usadas para listas parcialmente 
ordenadas. Neste caso, uma matriz se- 
cundária é criada para uma ordenação 
preliminar parcial. Os valores inicial e 
final são determinados no início, en- 
quanto outros itens só podem ser adi- 
cionados à lista quando esta estiver to- 
talmente ordenada. 

Embora essa rotina seja relativamen- 
te rápida, o uso de uma matriz secun- 
dária para armazenar dados diminui a 
memória disponível do micro. 

Note que se deve especificar o valor 
máximo, o que é feito por meio da li- 
nha 5010. No nosso caso, esse valor é 
100, que é o maior número aleatório 
permitido na linha 40. 

Adicione as linhas seguintes ao pri- 
meiro programa: 


90 GOSUB 5000 


4999 REM ORDENACAO POR ESPALHAM 
ENTO 

5000 DIM B(1.2*AA+30) 

5010 FOR J=1 TO AA: LET K=INT ( 


A(J)*AA/100)+1 

5020 IF B(K)=0 THEN LET B(K)J=A 
(J): NEXT J: GOTO 5040 

5030 LET K=K+1: GOTO 5020 

5040 LET J=1: FOR K=1 TO 1.2%AA 


+30: IF B(K)=0 THEN NEXT K: GO 
TO 5060 

5050 LET A(J)=B(K): LET J=J+1: 
NEXT K 

5060 FOR J=AA-1 TO 1 STEP -1: L 
ET F=-] 


5070 FOR K=1 TO J 
5080 IF A(K)J>A(K+1) THEN LET F 


=): LET T=A(K): LET A(K)=A(K+1) 
* LET A(K+1)=T 

5090 NEXT K: IF F=0 THEN NEXT 
J: RETURN 


TITS 


90 GOSUB 5000 








RÁPIDA E SIMPLES: 


E 


“CARTAS OU POR INSERÇÃO 


te ORDENAÇÃO INSTANTÂNEA: 
A MAIS RÁPIDA DE TODAS 





4999 REM **ORDENACAO POR ESPALH 
AMENTO** 

5000 DIM B(1l.2*AA+30) 

S010 FOR J=1 TO AA:K=INT(A(J)J*A 
A/100)+1 

5020 IF B(K)=0 THEN B(K)=A(J):N 
EXT:GOTO 35040 

5030 K=K+1L:GOTO 5020 

5040 J=1:FOR K=1 TO 1.2*%AA+30:1 
F B(K)=0 THEN NEXT:GOTO 5060 


5050 A(J)=B(K) :J=J+1:NEXT 

5060 FOR J=AA-2 TO 1 STEP -1:F= 
é 

5070 FOR K=1 TO J+1 

5080 IF A(K)J>A(K+1) THEN F=0:T= 


A(K):A(K)=A(K+1) :A(K+1)=T 
5090 NEXT:IF F=0 THEN NEXT 
5100 RETURN 


Os usuários do MSX podem trocar a 
segunda metade da linha 5080, que faz 
a troca de valores entre as variáveis A(K) 
e A(K+ 1) para SWAP A(K), A(K + 1). 
O valor 1.2 na linha 5000 pode ser ajus- 
tado para fornecer o espaço necessário 
à matriz. Essa rotina de ordenação imi- 
ta, de certa forma, a maneira normal- 
mente usada para ordenar um grupo de 
informações: uma vez misturados os da- 
dos, e determinados o maior e o menor 
valor, tudo vai sendo posicionado con- 
forme as prioridades. 


ORDENAÇÃO POR INSERÇÃO 





Uma opção para muitas aplicações é 
a rotina de ordenação por inserção. Su- 
pondo que os números abaixo sejam 
cartas de baralho, disponha-os na or- 
dem dada, da esquerda para a direita: 
esq. dir. 

9 q 5 7 2 


O processo começa a partir da es- 
querda (ou pelo primeiro valor da lista 
a ser ordenada). Ele procura pela pri- 
meira ocorrência de um número menor 
fora de ordem. Um rápido exame de li- 
nha mostra o 4 fora de lugar. Ele é en- 
tão reposicionado (inserido) antes do 9, 
formando a nova sequência: 


esq. dir. 
4 9 5 7 2 


As cartas 4 e 9 estão agora na sequên- 
cia correta, mas, quando incluímos os 
outros números (5, 7 e 2) em nossa ob- 








servação, a ordem desaparece. A cada 
passada, contudo, as cartas vão sendo 
reordenadas, até que alcancemos a se- 
quência correta: 


esq. Dár. 
4 9 5 7 Z 
q 5 g 7 2 
q 5 / 9 2 
E 4 q 5 7 q 


Como se pode ver, não há aqui se- 
paração de grupos ou comparações par 
a par de valores, como na maioria dos 
métodos já estudados: as cartas (núme- 
ros) são alinhadas da esquerda para a di- 
reita em ordem crescente, depois de al- 
gumas trocas de posição. 

Esse processo é muito semelhante ao 
usado por um jogador de baralho ao 
analisar e ordenar uma mão de cartas. 
De fato, a ordenação por inserção é 
também conhecida como ordenação do 
jogador de cartas. 

Vejamos agora um grupo de núme- 
ros um pouco maior, num estágio em 
que alguns valores já foram ordenados: 


grupo não ordenado g. ordenado 
34 


47 

59 

87 
02>535>>>>55> 
26 144 
73 167 


193 


O número 102 é colocado na sua po- 
sição correta e a rotina prossegue des- 
locando os valores remanescentes: 


grupo não ordenado g. ordenado 
26>>>>>>>> 
73 34 
193 47 
59 
87 
102 
144 
167 


Em seguida, o número 73 é inserido 
na sua posição; resta agora, como se po- 
de observar, apenas um valor não or- 
denado: 


g. ordenado 
26 
34 
47 
59 


grupo não ordenado 


73>>>>>>>> 
193 87 
102 
144 
167 


E, para completar; 


26 
34 
47 
59 
73 
87 
102 
144 
167 
193>>>>>>>> 


Adicione as linhas abaixo ao progra- 
ma de demonstração para observar a ve- 
locidade dessa rotina de ordenação: 


90 GOSUB 6000 
5999 REM ORDENACAO POR 
6000 FOR I=1 TO AA-1 
6010 LET K=A(I+1) 
6020 FOR, J=I TO 1 STEP -1 
6030 IF K>=A(J) THEN GOTO 6070 
6040 LET A(J+1)=A(J) 
6050 NEXT J 
6060 LET J=0 
6070 LET A(J+1)=K 
6080 NEXT I: RETURN 


TITS 


90 GOSUB 6000 
5999 REM **OADENACAO POR INSERC 
AO** 


INSERCAO 


6000 FOR I=1 TO AA-1 

6010 K=A(I+1) 

6020 FOR J=I TO 1 STEP -1 
6030 IF K>=A(J) THEN 6070 


6040 A(J+I)J=A(J) 
6050 NEXT J 

6060 J=0 

6070 A(J+1)=K 

6080 NEXT I:RETURN 


O valor da variável K é o próximo nuú- 
mero da lista não ordenada a ser com- 
parado. O laço externo que começa na 
linha 6000 “varre” a lista ordenada, 
passando dos menores para os maiores 
valores, até encontrar a posição para K. 
Então, a rotina das linhas 6020 a 6050 
expande a lista ordenada para que haja 
lugar para o novo item, O programa 
continua até que todos os valores da lis- 
ta não ordenada tenham sido colocados 
nos seus lugares. 


ORDENAÇÃO INSTANTÂNEA 





Embora seja considerada bastante rá- 
pida, a rotina de ordenação por inser- 
ção parece lenta quando comparada 
com a rotina de ordenação instantânea 
(ou quicksort, se você preferir). Esta úl- 
tima, contudo, além de ser complexa, 
exige muito espaço de memória. Assim, 


] = , > — di 
| | 
| | 
1 
- ni | 


ela não é encontrada com grande fre- 
qiiência em programas especialmente 
desenhados para as limitadas memórias 
dos micros domésticos. 

Seja como for, a ordenação instan- 
tânea é, sem dúvida, a mais veloz de to- 
das as rotinas que já examinamos até 
agora. Além disso, ela vai mais longe do 
que uma simples rotina de comparação 
e troca. E, embora seu algoritmo seja 
bastante complexo (a ponto de não po- 
dermos explicá-lo aqui), vale a pena 
conhecê-la e usá-la! 

90 GOSUB 7000 
6999 REM ORDENACAO INSTANTANEA 


7000 LET K=0: LET I=0: DIM S(hA 
) 

7010 LET S(I+1)=1: LET S(I+2)=A 
A 

7020 LET K=kK+1 


7030 IF K=0 THEN RETURN 

7040 LET K=K-1l: LET I=K+K 

7050 LET A=S(I+1): LET B=S(1+2) 
7060 LET Z=A(A): LET U=A: LET L 
=B+1 

7070 LET L=L-1 

7080 IF L=U THEN GOTO 7150 
7090 IF Z<=A(L) THEN GOTO 7070 
7100 LET A(UJ=A(L) 


7110 LET U=U+1 

7120 IF L=U THEN GOTO 7150 
7130 IF Z>=A(U) THEN GOTO 7110 

7140 LET A(L)=A(U): GOTO 7070 
7150 LET A(U)=Z 

7160 IF B-U>=2 THEN LET I=K+K: 
LET S(I+1)=U+l: LET S(1+2)=B: 

LET K=K+1 


7170 IF L-A>D=2 THEN LET I=K+K: 
LET S(I+1)=A: LET S(I+2)=L-l1: 
LET K=K+1 

7180 GOTO 7030 


TITLE 


90 GOSUB 7000 

6999 REM **ORDENACAO INSTANTANE 
AX 

7000 K=0:1=0:DIM S(AA) 

7010 S(I+1)=1:5(I+2) =AA 

7020 K=K+1 

7030 IF K=0 THEN RETURN 

7040 K=K-1: I=K+K 

7050 A=S(1+1) :B=S(1+2) 

7060 Z=A(A) :U=A:L=B+1 

7070 L=L-1 

7080 IF L=U THEN 7150 

7090 IF Z<=A(L) THEN 7070 

7100 A(U)J=A(L) 

7110 U=U+1 

7120 IF L=U THEN 7150 

7130 IF Z>=A(U) THEN 7110 

7140 A(L)=A(U):GOTO 7070 

7150 A(U)=Z 

7160 
)=U+1:S(1+2) =B: K=K+1 





7170 IF L-A>=2 .THEN I=K+K:S(I+ | 


)J=A:S(1+2) =L-1:K=K+] 
7180 GOTO 7030 





IF B-U>=2 THEN I=K+K:S(I+1. 





e 





LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





NasnanaNO PRÓXIMO NÚMERONEEEERHII 


PROGRAMAÇÃO DE JOGOS 
Programar o jogo do Otelo é relativamente fácil. Difícil é 
preparar uma estratégia para derrotar o computador. 


PROGRAMAÇÃO BASIC 
Aprenda a converter partituras musicais em linhas de 
programas BASIC e ouça as suas canções preferidas. 


CÓDIGO DE MÁQUINA 
Comece agora a programar um videogame completo: participe do 
jogo Avalanche e aprenda mais sobre código de máquina. 





